home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / shareware / cd-rom / atapi_pnp212 / installa.italiano < prev    next >
Text File  |  1996-05-03  |  18KB  |  650 lines
  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-ATAPI PnP v1.00 (07.09.95)
  4. ; *
  5. ; * Installation for Atapi Package v 1.00
  6. ; *
  7. ; * Copyright © 1995 by Georg Campana
  8. ; *
  9. ; ************************************************
  10.  
  11. ;/// Variabili
  12. ; ****************************
  13. ;       Variabili
  14. ; ****************************
  15. ;
  16.  
  17. (set DemoVersion        1) ; Demo Version
  18. (set ProductName        "ATAPI PnP ITALIAN VERSION"  )  ; product name
  19. (set ProductBaseName    "Atapi PnP")                    ; product base name
  20. (set VersionNum         "2.12")                     ; product version number
  21.  
  22. (set OSVersion          (/ (getversion) 65536))
  23. (set PctDone            0)
  24.  
  25. (set CPUOpts            0)    ; 0=68000,68010; 1=68020,68030,68040
  26.  
  27. (makeassign "CDPLUSPLUS" "" (safe))
  28.  
  29. (set Disk1Name                  "CDPLUSPLUS:")
  30.  
  31. (set MemSpace 1024)   ; 1K minimo di spazio necessario su disco
  32.  
  33. ;///
  34.  
  35. ;/// Proc setPkgOPts
  36. (procedure setPkgOpts
  37. ;
  38. ; ****************************
  39. ; * Wich Parts
  40. ; ****************************
  41. ;
  42.   (
  43.         (set PkgOpts
  44.                 (askoptions
  45.                         (prompt
  46.                            "Scegli le parti che vuoi installare"
  47.                            ("del pacchetto %s" ProductName)
  48.                         )
  49.                         (help
  50.                                 "Questa parte dell'installazione ti permette di scegliere quali moduli del"
  51.                                 (" pacchetto %s vuoi installare.\n" ProductName)
  52.                                 "\n"
  53.                                 "*** Atapi Device Driver\n"
  54.                                 "Questa opzione farà si che verrà installato il device"
  55.                                 " driver (cd.device )nella directory Devs: (Fondamentale)\n"
  56.                                 "\n"
  57.                                 "*** CDplusplusFS\n"
  58.                                 "Questa opzione installerà il file system proprietario"
  59.                                 " della CD++ nella directory L: (Consigliato).\n"
  60.                                 "\n"
  61.                                 "*** MAP-Mini Atapi Player\n"
  62.                                 "Questa opzione installerà una utility che permette la"
  63.                                 " riproduzione di CD-Audio anche misti.\n"
  64.                                 "\n"
  65.                                 "*** TRKDownLoad Track-Downloader\n"
  66.                                 "Questa opzione farà installare un utility che permette"
  67.                                 " il salvataggio su file di parti di tracce audio o dati.\n"
  68.                                 "\n"
  69.                                 "*** PlayCDXL\n"
  70.                                 "Questa opzione installerà un utility che permette la"
  71.                                 " riproduzione in tempo reale di film CDXL.\n"
  72.                                 "\n"
  73.                                 "*** CD_IDE\n"
  74.                                 "Questa opzione installerà un utility che permette di"
  75.                                 " settare alcune opzioni speciali.\n"
  76.                                 "\n"
  77.                                 @askoptions-help
  78.                         )
  79.                         (choices
  80.                                 ; bit position 0 -- todo & 1
  81.                                 ;
  82.                                 "Atapi Device Driver          (20 Kbytes)"
  83.  
  84.                                 ; bit position 1 -- todo & 2
  85.                                 ;
  86.                                 "CDplusplusFS - CD Filesystem (23 Kbytes)"
  87.  
  88.                                 ; bit position 2 -- todo & 4
  89.                                 ;
  90.                                 "MAP- Mini Atapi Player       (10 Kbytes)"
  91.  
  92.                                 ; bit position 3 -- todo & 8
  93.                                 ;
  94.                                 "TRKDownLoad- Track DownLoader(28 Kbytes)"
  95.  
  96.                                 ; bit position 4 -- todo & 16
  97.                                 ;
  98.                                 "PlayCDXL - Player Film CDXL  (23 Kbytes)"
  99.                                 ; bit position 5 -- todo & 32
  100.                                 ;
  101.                                 "CD_IDE -Preferenze del Device (9 Kbytes)"
  102.  
  103.                         )
  104.                 )
  105.         )
  106.   )
  107. )
  108. ;///
  109.  
  110. ;/// Proc setDirPath
  111.  
  112. (procedure setDirPath
  113. ;
  114. ; ****************************
  115. ; * Ask the user for a directory name.
  116. ; ****************************
  117. ;
  118. ; these variables must be defined before calling this procedure:
  119. ;    setDirPathWhy
  120. ;    setDirPathHelp
  121. ;    DirPath
  122. ;
  123. ; this procedure returns the selected directory in DirPath
  124. ;
  125.    (
  126.  
  127.        (set DirPath
  128.                (askdir
  129.                        (prompt ("Seleziona il disco sul quale installare il pacchetto\n(IL DISCO DI BOOT.   Normalmente SYS: )" )
  130.  
  131.                        )
  132.                        (help   "Il Pacchetto verrà installato sul disco"
  133.                                " prescelto .\n"
  134.                                "Se volete installare il pacchetto su un dischetto"
  135.                                " bootabile inserite quest'ultimo e sceglietelo"
  136.                                " dalla lista che si presenta\n"
  137.                                "\n"
  138.                                @askdir-help
  139.                        )
  140.                        (disk)
  141.                        (default "SYS:")
  142.                )
  143.        )
  144.  
  145.  
  146.  
  147.    )
  148. )
  149. ;///
  150.  
  151. ;/// Proc AskFsIcon
  152. ;
  153. ;
  154. (procedure AskFsIcon
  155. ;
  156. ; This procedure ask of wich cd Icon you want to install with wich Name
  157. ; It requires initialization of variables:
  158. ;
  159. ; In "DefaultIcon" ci deve essere quella accesa di default
  160. ; 
  161. ; Ridà in "IconChoose" qual icona
  162. ; 0 nessuna - 1 AmiCDFilesystem
  163. ; 2 AmiCDFS - 3 CDfilesystem - 4 CDplusplusFS
  164. ;
  165.   (
  166.     (set IconChoose
  167.      
  168.            (askchoice
  169.                 (prompt "Scegli per quale CD-Filesystem installare l'icona")
  170.                 (help
  171.                         "Potete scegliere per quale filesystem"
  172.                         " installare il pacchetto.\n"
  173.                         "Nel caso che abbiate installato il"
  174.                         " CDpluplusFS , scegliete quest'ultimo.\n"
  175.                         "\n"
  176.                         "Se il filesystem in vostro possesso"
  177.                         " non è presente tra quelli nella lista"
  178.                         " scegliete -Nessuno- e modificate nei"
  179.                         " tooltype dell'icona del vostro device"
  180.                         " CD la voce Device con\nDevice=cd.device\n"
  181.                         "e la voce Unit con\nUnit=0\n"
  182.                         @askchoice-help
  183.                 )
  184.                 (choices
  185.                         "-Nessuno"
  186.                         "-AmiCDFileSystem - by Nicola Salmoria"
  187.                         "-cdrom-handler   - by Frank Munkert"
  188.                         "-CDFileSystem    - by CBM Commodore"
  189.                         "-CDplusplusFS    - by CD++"
  190.                 )
  191.                 (default DefaultIcon)
  192.            )
  193.     )
  194.   )
  195. )
  196. ;///
  197.  
  198. ;/// Proc GetDevName
  199. ;
  200. ;  in DevName si ritrova il nome da usare per l'icona
  201. ;
  202.  
  203.  
  204. (procedure GetDevName
  205.    
  206.    (
  207.      (set DevName
  208.            (askstring
  209.                      (prompt "Scrivi il nome per il device CD-Rom senza i due punti\nEs. CD0")
  210.                      (help
  211.                              "Il nome scelto sarà quello del"
  212.                              " Device fisico\n"
  213.                              "E' conveniente non scegliere"
  214.                              " nomi troppo lunghi\n"
  215.                              "\nE' consigliabile CD0 o CD1 ecc."
  216.                              " dato che molti programmi cercano"
  217.                              " questo nome\n"
  218.                      )
  219.                      (default "CD0")
  220.            )
  221.      )
  222.    )
  223. )
  224. ;///
  225.  
  226. ;/// Proc AskAutoMount
  227. ;
  228. ;
  229. (procedure AskAutoMount
  230. ;
  231. ; Chiede se l'icona deve essere inserita nel devs Dosdrivers o nel
  232. ; storage dosdrivers
  233. ;
  234.   (
  235.     (set AutoMount
  236.      
  237.            (askbool
  238.                 (prompt "Vuoi che il device Atapi venga montato"
  239.                         " automaticamente ad ogni riavvio ,od"
  240.                         " a ogni accensione ?"
  241.                 )
  242.                 (help
  243.                         "Rispondendo positivamente l'icona del"
  244.                         " device verrà posta nel cassetto:\n"
  245.                         "Devs:Dosdrivers\n"
  246.                         "In questo modo il lettore CD-ROM sarà disponibile"
  247.                         " ad ogni riavvio o accensione della macchina\n\n"
  248.                         "Altrimemti in: Storage:DosDrivers\n"
  249.                         "ed il lettore sarà utilizzabile solo dopo aver cliccato due volte sulla sua Icona"
  250.                 )
  251.                 (choices
  252.                         "Monta al Riavvio"
  253.                         "No,Montaggio manuale"
  254.                 )
  255.                 (default 1)
  256.            )
  257.     )
  258.   )
  259. )
  260. ;///
  261.  
  262.  
  263. ; *************************************************************************
  264. ; *                         ACTUAL START OF SCRIPT
  265. ; *
  266. ; * Ask all questions for the user now, do all of the work later.
  267. ; *************************************************************************
  268. ;
  269. ;/// MAIN SCRIPT
  270. (onerror
  271.  
  272. )
  273. ; ****************************
  274. ;  Check for OS Version
  275. ; ****************************
  276.  
  277. (if (= DemoVersion 1)
  278.     (message "\n" "\n"
  279.              "Attenzione: Questa è una versione DEMO\n"
  280.              "del Pacchetto Atapi PnP !\n"
  281.              "PUOI RIDISTRIBUIRE IL DISCO\n"
  282.              "COMPLETO A CHIUNQUE (tranne ai Crakker)" "\n"
  283.              "\n"
  284.              "Atapi Plug'n Play is Copyright by \n"
  285.              "Georg Campana & Marco Campinoti ©1994\n\n"
  286.              "E-Mail: georg@etruscan.li.it\n"
  287.  
  288.              (help "Per avere la versione registrata , completamente funzionante leggete il manuale o chiamate : 0565/850621 e 0565/853005")
  289.     )
  290.  
  291.     (message "\n" "\n"
  292.              "Attenzione: Questa è la versione Registrata\n"
  293.              "del Pacchetto Atapi PnP !\n"
  294.              "E' VIETATO RIDISTRIBUIRE QUALSIASI FILE\n"
  295.              "PRESENTE IN QUESTO DISCHETTO" "\n"
  296.              "( I file sono contrassegnati )\n"
  297.              "Atapi Plug'n Play is Copyright by \n"
  298.              "Georg Campana & Marco Campinoti ©1994\n\n"
  299.              "E-Mail: georg@etruscan.li.it\n"
  300.  
  301.              (help "Se volete fare registrare chiamate: 0565/850621 o 0565/853005")
  302.     )
  303. )
  304.  
  305.  
  306. ; ****************************
  307. ; ****************************
  308. ;
  309.  
  310. (set DirPath "SYS:")
  311.  
  312. (setDirPath)
  313.  
  314. (set @default-dest DirPath)
  315.  
  316. (set devdest  (tackon @default-dest "Devs"))
  317. (set fsdest   (tackon @default-dest "L"))
  318. (set utildest (tackon @default-dest "Utilities"))
  319. (set prefdest (tackon @default-dest "Prefs"))
  320.  
  321.  
  322. (setPkgOpts)
  323.  
  324. (set DefaultIcon 0)
  325.  
  326. (if (= (exists (tackon fsdest "AmiCDFileSystem")) 1)
  327.     (set DefaultIcon 1)
  328. )
  329.  
  330. (if (= (exists (tackon fsdest "cdrom-handler")) 1)
  331.     (set DefaultIcon 2)
  332. )
  333.  
  334. (if (= (exists (tackon fsdest "CDFileSystem")) 1)
  335.     (set DefaultIcon 3)
  336. )
  337.  
  338. (if (IN PkgOpts 1)
  339.     (set DefaultIcon 4)
  340. )
  341.  
  342. (AskFsIcon)
  343.  
  344. (select IconChoose
  345.    (set FsName 0)
  346.    (set FsName "AmiCDFS")
  347.    (set FsName "AmiCDHandler")
  348.    (set FsName "CbmCDFS")
  349.    (set FsName "CDplusplusFS")
  350. )
  351.  
  352.  
  353. (set AutoMount 1)
  354. (set DevName "CD0")
  355.  
  356. (if (> @user-level 1)
  357.  
  358.     (if (<> IconChoose 0)
  359.         (
  360.          (GetDevName)
  361.          (AskAutoMount)
  362.         )
  363.     )
  364. )
  365.  
  366. (if (= AutoMount 1)
  367.     (set Icondest  (tackon @default-dest "Devs"))
  368.     (set Icondest  (tackon @default-dest "Storage"))
  369. )
  370.  
  371.  
  372.  
  373.  
  374.  
  375. (if (IN PkgOpts 0)
  376.     (set MemSpace (+ MemSpace 20000))
  377. )
  378. (if (IN PkgOpts 1)
  379.     (set MemSpace (+ MemSpace 23000))
  380. )
  381. (if (IN PkgOpts 2)
  382.     (set MemSpace (+ MemSpace 10000))
  383. )
  384. (if (IN PkgOpts 3)
  385.     (set MemSpace (+ MemSpace 28000))
  386. )
  387. (if (IN PkgOpts 4)
  388.     (set MemSpace (+ MemSpace 23000))
  389. )
  390. (if (IN PkgOpts 5)
  391.     (set MemSpace (+ MemSpace 9000))
  392. )
  393. (if (<> IconChoose )
  394.     (set MemSpace (+ MemSpace 1000))
  395. )
  396.  
  397. (if (< (getdiskspace DirPath) MemSpace)
  398.     (if(> (getdiskspace DirPath) 0)
  399.        (
  400.           (abort "ATTENZIONE: Lo spazio disponibile\n"
  401.                  ("sul disco %s\n" DirPath)
  402.                  ("è di soli %ld bytes\n" (getdiskspace DirPath) )
  403.                  ("e ne servono almeno %ld\n" MemSpace)
  404.                  "\n"
  405.                  "Rilanciate l'icona di Installazione\n"
  406.                  "e selezionate meno utility , oppure\n"
  407.                  "cancellate qualche file dal vostro\n"
  408.                  ("disco %s\n" DirPath)
  409.           )
  410.        )
  411.     )
  412. )
  413.  
  414.  
  415.  
  416.  
  417.  
  418.  
  419.  
  420.  
  421.  
  422.  
  423.  
  424.  
  425.  
  426.  
  427. ; if bit position 0 is on  Installa device
  428. (if (IN PkgOpts 0)
  429.      (
  430.  
  431.        (if (< (exists devdest (noreq)) 2)
  432.  
  433.            (makedir devdest
  434.               (prompt "Creo una directory -Devs-")
  435.               (infos)
  436.            )
  437.        )
  438.  
  439.        (if (< OSVersion 39)
  440.          (
  441.            (copylib
  442.                (prompt "Installo Device Driver")
  443.                (source (tackon Disk1Name "devs/cd_a600.device"))
  444.                (newname "cd.device")
  445.                (dest  devdest)
  446.                (optional force)
  447.            )
  448.          )
  449.  
  450.          (
  451.            (copylib
  452.                (prompt "Installo Device Driver")
  453.                (source (tackon Disk1Name "devs/cd.device"))
  454.                (dest devdest)
  455.                (optional force)
  456.            )
  457.          )
  458.        )
  459.      )
  460. )
  461. ; if bit position 1 is on Installa FileSystem
  462. (if (IN PkgOpts 1)
  463.      (
  464.  
  465.         
  466.         (if (< (exists fsdest (noreq)) 2)
  467.  
  468.             (makedir fsdest
  469.                (prompt "Creo una directory -L-")
  470.             )
  471.         )
  472.  
  473.  
  474.         (copylib
  475.             (prompt "Installo FileSystem della CD++")
  476.             (source (tackon Disk1Name "l/CDplusplusFS"))
  477.             (dest fsdest)
  478.             (optional force)
  479.         )
  480.         
  481.  
  482.      )
  483. )
  484.  
  485. ; if bit position 2 is on Installa MAP
  486. (if (IN PkgOpts 2)
  487.      (
  488.  
  489.         
  490.         (if (< (exists utildest (noreq)) 2)
  491.  
  492.             (makedir utildest
  493.                (prompt "Creo una directory -Utilities-")
  494.                (infos)
  495.             )
  496.         )
  497.  
  498.  
  499.         (copyfiles
  500.             (prompt "Installo Mini Atapi Player")
  501.             (source (tackon Disk1Name "utilities/MAP"))
  502.             (dest utildest)
  503.             (infos)
  504.             (optional force)
  505.         )
  506.         
  507.  
  508.      )
  509. )
  510.  
  511. ; if bit position 3 is on Installa TRKDownLoad
  512. (if (IN PkgOpts 3)
  513.      (
  514.  
  515.         
  516.         (if (< (exists utildest (noreq)) 2)
  517.  
  518.             (makedir utildest
  519.                (prompt "Creo una directory -Utilities-")
  520.                (infos)
  521.             )
  522.         )
  523.  
  524.  
  525.         (copyfiles
  526.             (prompt "Installo TrkDownLoader")
  527.             (source (tackon Disk1Name "utilities/TRKDownLoad"))
  528.             (dest utildest)
  529.             (infos)
  530.             (optional force)
  531.         )
  532.         
  533.  
  534.      )
  535. )
  536.  
  537. ; if bit position 4 is on Installa PlayCDXL
  538. (if (<> DemoVersion 1)
  539.    (if (IN PkgOpts 4)
  540.         (
  541.  
  542.            
  543.            (if (< (exists utildest (noreq)) 2)
  544.  
  545.                (makedir utildest
  546.                   (prompt "Creo una directory -Utilities-")
  547.                   (infos)
  548.                )
  549.            )
  550.  
  551.  
  552.            (copyfiles
  553.                (prompt "Installo PlayCDXL")
  554.                (source (tackon Disk1Name "utilities/PlayCDXL"))
  555.                (dest utildest)
  556.                (infos)
  557.                (optional force)
  558.            )
  559.            
  560.  
  561.         )
  562.    )
  563. )
  564.  
  565. ; if bit position 5 is on  Installa CD_IDE
  566. (if (IN PkgOpts 5)
  567.      (
  568.  
  569.  
  570.         (if (< (exists prefdest (noreq)) 2)
  571.  
  572.             (makedir prefdest
  573.                (prompt "Creo una directory -Prefs-")
  574.                (infos)
  575.             )
  576.         )
  577.  
  578.  
  579.         (copyfiles
  580.             (prompt "Installo CD_IDE")
  581.             (source (tackon Disk1Name "prefs/CD_IDE"))
  582.             (dest prefdest)
  583.             (infos)
  584.             (optional force)
  585.         )
  586.  
  587.  
  588.      )
  589. )
  590.  
  591.  
  592.  
  593.  
  594. (if (> IconChoose 0)
  595.     (
  596.         (if (< (exists Icondest (noreq)) 2)
  597.  
  598.             (makedir Icondest
  599.                (prompt "Creo una directory Devs o Storage")
  600.                (infos)
  601.             )
  602.         )
  603.  
  604.         (set Icondest  (tackon Icondest "Dosdrivers"))
  605.          
  606.         (copyfiles
  607.             (prompt "Installo l'Icona del Device")
  608.             (source (tackon Disk1Name (tackon "Devs/Storage" FsName)))
  609.             (dest IconDest)
  610.             (newname  DevName)
  611.             (infos)
  612.             (optional force)
  613.         )
  614.  
  615.     
  616.         (if (= AutoMount 1)
  617.             ( message "\n" "\n"
  618.                    "Ad ogni riavvio del calcolatore o ad ogni\n"
  619.                    "accensione- il lettore CD-ROM verrà \"Montato\"\n"
  620.                    "automaticamente !\n"
  621.                    "\n"
  622.                    "Potete disabilitare questo automatismo\n"
  623.                    ("trascinando l'icona %s dal cassetto " DevName)
  624.                    "Devs/Dosdrivers nel cassetto Storage/Dosdrivers\n"
  625.             )
  626.             ( message "\n" "\n"
  627.                    "Potete \"Montare\"\n il lettore CD-ROM\n"
  628.                    ("cliccando semplicemente sull'Icona %s\n" DevName)
  629.                    "nel cassetto Storage/Dosdrivers\n"
  630.                    "Per abilitare il montaggio automatico\n"
  631.                    "trascinate l'Icona nel cassetto Devs/Dosdrivers"
  632.             )
  633.         )
  634.     )
  635.     ( message "\n" "\n"
  636.            "Non è stata installata alcuna Icona per\n"
  637.            "il montaggio del lettore CD-ROM .\n"
  638.            "E' necessario quindi costruirsi quest'ultima\n"
  639.            "autonomamente seguendo le istruzioni del\n"
  640.            "proprio filesystem !\n"
  641.            "\n"
  642.            "Potete anche rilanciare l'icona di installazione\n"
  643.            "e selezionare un filesystem alla richiesta\n"
  644.     )
  645.  
  646. )
  647.  
  648. (exit)
  649. ;///
  650.